home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pj9_3.arc / FATAL.ASM < prev    next >
Assembly Source File  |  1991-10-07  |  419b  |  29 lines
  1.     title    fatal applications exit
  2.     include    asm.inc
  3.  
  4.     public    fatal_app_exit
  5.  
  6.     .const
  7. ertx_fatal        db    'fatal',0
  8.  
  9.     .code
  10.     extn    set_strerror,perror,exit_with_error
  11.  
  12.  
  13. ;;    fatal_app_exit
  14. ;
  15. ;    entry    AX    offset of DGROUP error string
  16. ;    note        this function never returns
  17. ;
  18. fatal_app_exit proc
  19.     call    set_strerror
  20.  
  21.     mov    ax,@data
  22.     lea    si,ertx_fatal
  23.     call    perror
  24.  
  25.     jmp    exit_with_error
  26. fatal_app_exit endp
  27.  
  28.     end
  29.